home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
MOVLOCAL.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-02-13
|
405b
|
28 lines
PROGRAM MOVLocal;
USES Crt;
PROCEDURE Foo;
VAR
Fee,Fie : Integer;
BEGIN
Fee := 0; Fie := 0;
INLINE($B8/$11/$00); {MOV AX,17}
INLINE($89/$86/Fee); {MOV Fee,AX}
Writeln('Fee=',Fee);
Readln;
INLINE($8B/$9E/Fee); {MOV BX,Fee}
INLINE($89/$9E/Fie); {MOV Fie,BX}
Writeln('Fie=',Fie);
Readln;
END;
BEGIN
ClrScr;
Foo;
END.